Private Sub UserForm_Activate()

    If Not tvw.SelectedItem.Parent Is Nothing Then

        lbl.Caption = "  : " & tvw.SelectedItem.Parent.Children

    End If

    If Not tvw.SelectedItem.Child Is Nothing Then

        lbl.Caption = "  : " & tvw.SelectedItem.Children

    End If

End Sub
